home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / eqnchar.psc < prev    next >
Encoding:
Text File  |  1989-05-18  |  4.3 KB  |  93 lines
  1. .\"                               *  *  *  *  *
  2. .\"  NOTE:  The characters defined in this file produce the 
  3. .\"         best symbols when output using the italic font 
  4. .\"         at point size 10 (.PZ 11 on laser printers).
  5. .\"        Use with other fonts and/or point sizes may require
  6. .\"        adjustments to the definitions.
  7. .\"                               *  *  *  *  *
  8. .EQ
  9. define ciplus % "\(a+" %
  10. define citimes % "\(ax" %
  11. define =wig % "\(eq\h'-\w'\(eq'u-\w'\s-2\(ap'u/2u'\v'-.4m'\s-2\z\(ap\(ap\s+2\v'.4m'\h'\w'\(eq'u-\w'\s-2\(ap'u/2u'" %
  12. define -wig % "\s-1\(mi\s0\h'-\w'\s-1\(mi\s0'u-\w'\s-1\(ap'u/2u'\v'-.2m'\s-1\z\(ap\(ap\s+2\v'.2m'\h'\w'\s-1\(mi\s0'u-\w'\s-1\(ap'u/2u'" %
  13. define =dot % "\z\(eq\v'-.6m'\h'.1m'\s+2.\s-2\v'.6m'\h'.2m'" %
  14. define orsign  % "\(lo" %
  15. define andsign % "\(an" %
  16. define =del % "\v'.3m'\z\s+1=\s0\v'-.6m'\h'.07m'\s-1\(*D\s+1\v'.3m'\h'-.07m'" %
  17. define oppA % "\(fa" %
  18. define oppE % "\(te" %
  19. define incl % size -1 "\v'-.2m'\fS\s-3\z\(or\fP\s+3\v'-.25m'\h'.15m'\z\(em\v'.6m'\z\(em\v'.2m'\(em\v'-.35m'" %
  20. define angstrom % "\fR\zA\v'-.3m'\h'.2m'\(de\v'.3m'\fP" %
  21. define star % "\(**" %
  22. define bigstar % "\o'\(pl\(mu'" %
  23. define || % \(or\(or\^ %
  24. define <wig % "\z<\h'.05m'\v'.4m'\(ap\v'-.4m'" %
  25. define >wig % "\z>\v'.4m'\(ap\v'-.4m'" %
  26. define langle % "\(l<" %
  27. define rangle % "\(r>" %
  28. define hbar % "\z\fIh\fP\v'-.55m'\h'.03m'\s-2\(ru\s0\v'.55m'\h'-.03m'" %
  29. define ppd % "\(bt" %
  30. define <-> % "\o'\(<-\(->'" %
  31. define <=> % "\(io" %
  32. define |< % "\z<\v'.02m'\h'.3m'\fS\(or\fP\v'-.02m'" %
  33. define |> % "\z>\v'.02m'\h'.2m'\fS\(or\fP\v'-.02m'" %
  34. define ang % "\v'-.04m'\z\s-2\(sl\s+2\v'.04m'\(ru" %
  35. define rang % "\v'-.1m'\z\s-3\fS\(or\fP\s0\v'.13m'\h'.1m'\(ru\v'-.03m'" %
  36. define 3dot % "\v'-.8m'\z.\v'.5m'\z.\v'.5m'.\v'-.2m'" %
  37. define thf % "\(tf" %
  38. define quarter % roman \(14 %
  39. define 3quarter % roman \(34 %
  40. define degree % \(de %
  41. define square % \(sq %
  42. define circle % \(ci %
  43. define blot % "\(bx" %
  44. define bullet % \(bu %
  45. define wig % \(ap %
  46. define prop % \(pt %
  47. define empty % \(es %
  48. define member % \(mo %
  49. define nomem % "\(!m" %
  50. define cup % \(cu %
  51. define cap % \(ca %
  52. define subset % \(sb %
  53. define supset % \(sp %
  54. define !subset % \(ib %
  55. define !supset % \(ip %
  56. define ell  % "\z\(sl\v'-.1m'\h'-.04m'\s-2\fR(\fP\s0\v'.1m'\h'.04m'" %
  57. define gauint % "\s-3\z\(ci\h'\w'\(ci'u/2u-5u'\s0\(is\s-3\h'\w'\(ci'u/2u-5u'\s0" %
  58. define mplus % "\z+\v'-35u'\h'\w'+'u/2u'\h'-\w'\(mi'u/2u'\(mi\v'+35u'" %
  59. tdefine dprime % "\h'-.2m'\z\(aa\h'.15m'\z\(aa\h'-.15m'\h'.2m'" %
  60. .EN
  61. .\"
  62. .\"  Since the postscript character set has straight vertical greek
  63. .\"  lower-case characters, we need to explicitly slant them.  Since
  64. .\"  slanting effectively widens the character and causes it to crowd
  65. .\"  its surroundings a bit, a small space has been added to the left
  66. .\"  of each character.
  67. .EQ
  68. define alpha    % { back 15 "\S'-12'\^\(*a\S'0'" fwd 15 nothing } %
  69. define beta     % { back 15 "\S'-12'\^\(*b\S'0'" fwd 15 nothing } %
  70. define gamma    % { back 15 "\S'-12'\^\(*g\S'0'" fwd 15 nothing } %
  71. define delta    % { back 5 "\S'-12'\^\(*d\S'0'" fwd 5 nothing } %
  72. define epsilon  % { back 15 "\S'-12'\^\(*e\S'0'" fwd 15 nothing } %
  73. define zeta     % { back 15 "\S'-12'\^\(*z\S'0'" fwd 15 nothing } %
  74. define eta      % { back 15 "\S'-12'\^\(*y\S'0'" fwd 15 nothing } %
  75. define theta    % { back 15 "\S'-12'\^\(*h\S'0'" fwd 15 nothing } %
  76. define iota     % { back 15 "\S'-12'\^\(*i\S'0'" fwd 15 nothing } %
  77. define kappa    % { back 15 "\S'-12'\^\(*k\S'0'" fwd 15 nothing } %
  78. define lambda   % { back 15 "\S'-12'\^\(*l\S'0'" fwd 15 nothing } %
  79. define mu       % { back 15 "\S'-12'\^\(*m\S'0'" fwd 15 nothing } %
  80. define nu       % { back 15 "\S'-12'\^\(*n\S'0'" fwd 15 nothing } %
  81. define xi       % { back 15 "\S'-12'\^\(*c\S'0'" fwd 15 nothing } %
  82. define omicron  % { back 15 "\S'-12'\^\(*o\S'0'" fwd 15 nothing } %
  83. define pi       % { back 15 "\S'-12'\^\(*p\S'0'" fwd 15 nothing } %
  84. define rho      % { back 15 "\S'-12'\^\(*r\S'0'" fwd 15 nothing } %
  85. define sigma    % { back 15 "\S'-12'\^\(*s\S'0'" fwd 15 nothing } %
  86. define tau      % { back 15 "\S'-12'\^\(*t\S'0'" fwd 15 nothing } %
  87. define upsilon  % { back 15 "\S'-12'\^\(*u\S'0'" fwd 15 nothing } %
  88. define phi      % { back 15 "\S'-12'\^\(*f\S'0'" fwd 15 nothing } %
  89. define chi      % { back 5 "\S'-12'\^\(*x\S'0'" fwd 5 nothing } %
  90. define psi      % { back 15 "\S'-12'\^\(*q\S'0'" fwd 15 nothing } %
  91. define omega    % { back 15 "\S'-12'\^\(*w\S'0'" fwd 15 nothing } %
  92. .EN
  93.